(occur-read-primary-args): Handle a bare 'C-u' correctly.

diff --git a/lisp/replace.el b/lisp/replace.el
index d146ef15489f64aae460f3d02022f049a2811e91..e5a320d7fd2585cc2604ea8f8d1c708f96d595a2 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -612,7 +612,8 @@ If the value is nil, don't highlight the buffer names specially."
          (if (equal input "")
              default
            input))
-       current-prefix-arg))
+       (when current-prefix-arg
+         (prefix-numeric-value current-prefix-arg))))
 
 (defun occur (regexp &optional nlines)
   "Show all lines in the current buffer containing a match for REGEXP.